home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 26.zip / BS1 part 26 / Ghostwriter 1.1 germ d1.adf / autoexec.AMOS / autoexec.amosSourceCode
AMOS Source Code  |  1992-01-05  |  509b  |  22 lines
  1. Screen Open 1,320,256,8,Lowres : Cls 
  2. Screen Open 2,320,256,8,Lowres : Cls 
  3. Flash Off : Break Off 
  4. Hide On 
  5. Screen 1
  6. Load Iff "Ghostwriter:bild0"
  7. Palette $0,$0,$0,$0,$0,$0,$0,$0
  8. Screen 2
  9. Load Iff "Ghostwriter:bild0.5"
  10. Screen To Front 1
  11. Screen 1
  12. Fade 2,$0,$FFF,$F00,$80,$999,$FB0,$936,$CA7 : Wait 90
  13. Wait 100 : X=Free
  14. Fade 2 : Wait 30
  15. Screen To Front 2
  16. Repeat 
  17. Until Mouse Key<>0
  18. Fade 2 : Wait 30
  19. Screen Close 1
  20. Screen Close 2
  21. If Fast Free=0 Then Run "Ghostwriter:Ghostwriter_500"
  22. Run "Ghostwriter:Ghostwriter"